home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_103_Doc < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.6 KB  |  71 lines
  1. { %filename% -- document class }
  2. { Created %date% %time% by AppMaker  }
  3.  
  4. Unit U%appname%Doc;
  5. Interface
  6.  
  7. Uses
  8. %if lang = Think%
  9.         SysEqu, Traps, ULoMem,             {}
  10.         UMacAppUtilities, UPatch,        {}
  11.         UObject, UList, UViewCoords,    {} 
  12.         UMemory, UFailure,                 {}
  13.         UMenuSetup, PrintTraps,         {}
  14.         UAssociation,                    {}
  15.         UMacApp,                         {}
  16.         UGridView, UTEView, UDialog,     {}
  17.         UPrinting,                         {}
  18.         %for each window gen uses%
  19.         ResourceDefs;
  20. %else%
  21.         UMacApp,
  22.         UGridView,
  23.         UTEView,
  24.         UDialog,
  25.         UPrinting, 
  26.         UAMLibraryM,
  27.         %for each window gen uses%
  28.         Types, 
  29.         Quickdraw, 
  30.         Fonts,
  31.         ResourceDefs;
  32. %endif%
  33.  
  34. Type
  35.     T%appname%Doc = Object (TDocument)
  36.         Procedure I%appname%Doc;
  37.         Procedure Free;                                           Override;
  38.         Procedure FreeData;                                       Override;
  39.         Procedure DoMakeViews         (forPrinting:        boolean); Override;
  40.         Procedure DoNeedDiskSpace    (var dataForkBytes:    longInt;
  41.                                      var rsrcForkBytes:    longInt); Override;
  42.         Procedure DoRead            (aRefNum:            integer;
  43.                                      rsrcExists:        boolean;
  44.                                      forPrinting:        boolean); Override;
  45.         Procedure DoWrite            (aRefNum:            integer;
  46.                                      makingCopy:        boolean); Override;
  47.         Procedure DoSetupMenus;                                   Override;
  48.         %for each menu gen dynamicMenuProc.decl%
  49.  
  50.         Function  DoMenuCommand    (aCmdNumber: CmdNumber): TCommand; Override;
  51.  
  52.         {$IFC qInspector}
  53.         Procedure Fields    (
  54.                 Procedure DoToField    (fieldName:        Str255;
  55.                                      fieldAddr:        Ptr;
  56.                                      fieldType:        integer)
  57.                             ); Override;
  58.         {$ENDC}
  59.     End; {T%appname%Doc}
  60.  
  61. {----------}
  62. Implementation
  63.  
  64. %If lang = MPW%
  65.     {$I U%AppName%Doc.inc.p}
  66. %else%
  67.     %Doc.inc%
  68. %endif%
  69.  
  70. End. {U%AppName%Doc}
  71.